DEFINITION MODULE ModelFS; (* Sem 08-Feb-87. (c) KRONOS *)

FROM SYSTEM    IMPORT   ADDRESS;

PROCEDURE Open(Name: ARRAY OF CHAR);

PROCEDURE Create(Name: ARRAY OF CHAR);

PROCEDURE sRead(a: ADDRESS; s: INTEGER);

PROCEDURE sWrite(a: ADDRESS; s: INTEGER);

PROCEDURE Seek(n: INTEGER);

PROCEDURE Poz(): INTEGER;

PROCEDURE Close();

VAR WordCnt: INTEGER;

END ModelFS.
